home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / EasyPLUGINs / source / space.e < prev    next >
Encoding:
Text File  |  1998-01-11  |  999 b   |  49 lines
  1. OPT MODULE, OSVERSION=37
  2.  
  3. MODULE 'tools/EasyGUI',
  4.        'intuition/intuition',
  5.        'utility', 'utility/tagitem'
  6.  
  7. EXPORT OBJECT space_plugin OF plugin PRIVATE
  8.  
  9.     w, h
  10.  
  11.     rx, ry
  12.  
  13. ENDOBJECT
  14.  
  15. -> PROGRAMMER_ID | MODULE_ID
  16. ->      $01      |   $05
  17.  
  18.  
  19. EXPORT ENUM PLA_Space_Width=$81005001,   ->[I..]
  20.             PLA_Space_Height,            ->[I..]
  21.             PLA_Space_ResizeX,           ->[I..]
  22.             PLA_Space_ResizeY            ->[I..]
  23.  
  24.  
  25. PROC space(tags=NIL:PTR TO tagitem) OF space_plugin
  26.  
  27.     IF utilitybase
  28.  
  29.         self.w  := GetTagData(PLA_Space_Width, 0, tags)
  30.         self.h  := GetTagData(PLA_Space_Height, 0, tags)
  31.         self.rx := GetTagData(PLA_Space_ResizeX, FALSE, tags)
  32.         self.ry := GetTagData(PLA_Space_ResizeY, FALSE, tags)
  33.  
  34.     ELSE
  35.  
  36.         Raise("util")
  37.  
  38.     ENDIF
  39.  
  40. ENDPROC
  41.  
  42. PROC min_size(ta,fh) OF space_plugin IS self.w, self.h
  43.  
  44. PROC will_resize() OF space_plugin IS (self.rx OR self.ry)
  45.  
  46. PROC render(ta,x,y,xs,ys,w:PTR TO window) OF space_plugin IS EMPTY
  47.  
  48.  
  49.